home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 03 / 0 / DISK0300.ZIP / DORK.PRG < prev    next >
Text File  |  1985-02-18  |  442b  |  25 lines
  1. *DORK.PRG
  2.  
  3. GO TOP
  4. SET DECIMALS TO 1
  5. DO WHILE .NOT. EOF()
  6. STORE (DATE() - JOINED)/30 TO MTENURE
  7. ? MTENURE
  8.     IF DTOC(LEFT) <> '0.0'
  9.     STORE (LEFT-JOINED)/30 TO MROTATE
  10.     REPLACE ROTATE WITH MROTATE
  11.     REPLACE TENURE WITH MTENURE
  12.     ENDIF
  13. SKIP
  14. ENDDO
  15. AVERAGE TENURE TO FRED
  16. ?
  17. ? 'AVERAGE TENURE OF PRESENT CUBS'
  18. ? FRED
  19. AVERAGE ROTATE FOR ROTATE > 0 TO MROTATE
  20. ?
  21. ? 'AVERAGE TENURE OF DEPARTED CUBS'
  22. ? MROTATE
  23. WAIT
  24.  
  25.